From: Nick Roberts <nickrob@snap.net.nz>
Date: Sat, 12 May 2007 09:39:06 +0000 (+0000)
Subject: (xterm-mouse-debug-buffer): New variable.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18895
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ade8c4df2d85aaded632e4d8d9435c48a3d47c8a;p=emacs.git

(xterm-mouse-debug-buffer): New variable.
(xterm-mouse-translate): Use it.
---

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index 8ae79903d51..3a7c8fd553a 100644
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -43,6 +43,8 @@
 
 ;;; Code:
 
+(defvar xterm-mouse-debug-buffer nil)
+
 (define-key function-key-map "\e[M" 'xterm-mouse-translate)
 
 (defvar xterm-mouse-last)
@@ -95,6 +97,8 @@
 		       (list (intern (format "drag-mouse-%d"
 					     (+ 1 xterm-mouse-last)))
 			     down-data click-data)))))
+	    (if xterm-mouse-debug-buffer
+		(print unread-command-events xterm-mouse-debug-buffer))
 	    (if (and (symbolp down-where)
 		     (consp down-where))
 		(vector (list down-where down-data) down)